home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH3 / SRC / PRINTERS.FRM < prev    next >
Text File  |  1996-05-01  |  3KB  |  96 lines
  1. VERSION 4.00
  2. Begin VB.Form PrintersForm 
  3.    Caption         =   "Printers"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   2325
  6.    ClientTop       =   1545
  7.    ClientWidth     =   4485
  8.    Height          =   4830
  9.    Left            =   2265
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   4485
  13.    Top             =   915
  14.    Width           =   4605
  15.    Begin VB.TextBox PrintersText 
  16.       BeginProperty Font 
  17.          name            =   "Courier New"
  18.          charset         =   0
  19.          weight          =   400
  20.          size            =   8.25
  21.          underline       =   0   'False
  22.          italic          =   0   'False
  23.          strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   4095
  26.       Left            =   0
  27.       Locked          =   -1  'True
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   3  'Both
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   4455
  33.    End
  34.    Begin VB.Menu mnuFile 
  35.       Caption         =   "&File"
  36.       Begin VB.Menu mnuFileExit 
  37.          Caption         =   "E&xit"
  38.       End
  39.    End
  40. End
  41. Attribute VB_Name = "PrintersForm"
  42. Attribute VB_Creatable = False
  43. Attribute VB_Exposed = False
  44. Option Explicit
  45.  
  46. Private Sub Form_Load()
  47. Dim pr As Printer
  48. Dim txt As String
  49. Dim dev As String
  50. Dim prt As String
  51. Dim drv As String
  52. Dim dev_len As Integer
  53. Dim prt_len As Integer
  54. Dim l As Integer
  55.  
  56.     ' See how long each field is.
  57.     For Each pr In Printers
  58.         l = Len(pr.DeviceName)
  59.         If dev_len < l Then dev_len = l
  60.         
  61.         l = Len(pr.Port)
  62.         If prt_len < l Then prt_len = l
  63.     Next pr
  64.     dev_len = dev_len + 2
  65.     prt_len = prt_len + 2
  66.     
  67.     ' Build the output string.
  68.     txt = "Device" & Space$(dev_len - Len("Device")) & _
  69.           "Port" & Space$(prt_len - Len("Port")) & _
  70.           "Driver" & vbCrLf
  71.     txt = txt & _
  72.           "------" & Space$(dev_len - Len("------")) & _
  73.           "----" & Space$(prt_len - Len("----")) & _
  74.           "------" & vbCrLf
  75.     For Each pr In Printers
  76.         dev = pr.DeviceName
  77.         prt = pr.Port
  78.         drv = pr.DriverName
  79.         txt = txt & dev & Space$(dev_len - Len(dev))
  80.         txt = txt & prt & Space$(prt_len - Len(prt))
  81.         txt = txt & drv & vbCrLf
  82.     Next pr
  83.     
  84.     PrintersText.Text = txt
  85. End Sub
  86.  
  87. Private Sub Form_Resize()
  88.     PrintersText.Move 0, 0, ScaleWidth, ScaleHeight
  89. End Sub
  90.  
  91.  
  92. Private Sub mnuFileExit_Click()
  93.     Unload Me
  94. End Sub
  95.  
  96.